VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "VImage"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Public Image As Object
Public Size As Long
Private prvFileName As String

Public Property Get FileName() As String
   FileName = prvFileName
End Property

Public Property Let FileName(S As String)
Dim Pos, NewPos As Integer
   NewPos = InStr(S, "\")
   Do Until NewPos = 0
      Pos = NewPos
      NewPos = InStr(Pos + 1, S, "\")
   Loop
   prvFileName = Right$(S, Len(S) - Pos)
End Property
